0  D$ = CHR$(4) : PRINT D$;" OPEN FILE"

1  PRINT D$;"WRITE FILE": LIST 3-

2  PRINT D$;"CLOSE FILE": END

RUN
0

1

2